WITH Bulletin;

PACKAGE  Etudiant IS

   SUBTYPE Longueur IS Natural range 0 .. 20;

   TYPE Etudiant IS PRIVATE;

   FUNCTION CreerEtudiant return Etudiant;

PRIVATE
   TYPE Etudiant (t1 : Longueur := 0; t2 : Longueur :=0) IS RECORD
      Prenom : String (1 .. t1);
      Nom : String (1 .. t2);
      un_bulletin : Bulletin.Bulletin;
   END RECORD;

END Etudiant;
